home *** CD-ROM | disk | FTP | other *** search
/ Rage! 1 / Rage! - Issue 1 (1996-06-12)(Eremation)(AGA).adf / RAGE!InstallHD < prev   
Encoding:
Text File  |  1996-06-15  |  3.8 KB  |  119 lines
  1. ;
  2. ; RAGE!#01 Install Script.
  3. ; $VER: RAGE!#01 Install Script for installer v1.1 (28/Dec/95)
  4. ;
  5.  
  6. (
  7.    (complete 0)
  8. ; Remove these two assigns first
  9.    (makeassign "RAGE!#01:")
  10.  
  11. ; Ask where to install RAGE!#01
  12.    (set @default-dest "Work:")
  13.    (set dest1
  14.       (askdir
  15.          (prompt "Select the location to install the RAGE!#01 directory.")
  16.          (help "Choose a destination partition or directory"
  17.                  " to contain RAGE!#01. The Installer will"
  18.                  " create a directory called 'RAGE!#01' in the"
  19.                  " location directory you choose and then copy"
  20.                  " RAGE!#01's files to it."
  21.          (default @default-dest)
  22.          )
  23.       )
  24.    )
  25.  
  26.    (set @default-dest (tackon dest1 "RAGE!#01"))
  27.  
  28.    (if (exists @default-dest
  29.                (noreq))
  30.       (message "\n\nThe RAGE!#01 Directory already exists.\n"
  31.                "Do you still want to install RAGE!#01 ?\n\n"
  32.                "If you decide to continue, then RAGE!#01 will be"
  33.                " be merged into this old directory.\n\n"
  34.                "Anyway, it is strongly advised to stop the"
  35.                " installation, to erase the old RAGE!#01 directory,"
  36.                " to remove the ASSIGNs in your user-startup"
  37.                " and to re-install RAGE!#01 again.")
  38.       (message "\n\n\n\n\nRAGE!#01 will be installed in " @default-dest
  39.                "\n\nPlease confirm this action."))
  40.  
  41. ; Make some directories
  42.    (makedir @default-dest (safe) (infos))
  43.    (makedir ("%s/fonts" @default-dest) (safe))
  44.    (makedir ("%s/libs" @default-dest) (safe))
  45.    (makedir ("%s/Datas" @default-dest) (safe))
  46.    (makedir ("%s/c" @default-dest) (safe))
  47.    (makedir ("%s/s" @default-dest) (safe))
  48.    (complete 5)
  49.  
  50. ; Install RAGE!#01 from Disk.
  51.    (askdisk (prompt "\n\n\n\n\nPlease insert RAGE!#01 disk.")
  52.             (help "\n\n\n\n\n Insert the Disk containing the first RAGE! issue")
  53.             (dest "RAGE!#01"))
  54.  
  55.    (set fontsdest (tackon @default-dest "fonts/"))
  56.    (copyfiles (source "RAGE!#01:fonts/")
  57.               (dest fontsdest)
  58.               (all))
  59.  
  60.    (complete 10)
  61.    (set libsdest (tackon @default-dest "libs/"))
  62.    (copyfiles (source "RAGE!#01:libs/")
  63.               (dest libsdest)
  64.               (all))
  65.  
  66.    (complete 20)
  67.    (set Datasdest (tackon @default-dest "Datas/"))
  68.    (copyfiles (source "RAGE!#01:Datas/")
  69.               (dest Datasdest)
  70.               (all))
  71.  
  72.    (complete 30)
  73.    (copyfiles (source "RAGE!#01:RAGE!#01")
  74.               (dest @default-dest))
  75.  
  76.    (copyfiles (source "RAGE!#01:RAGE!#01.info")
  77.               (dest @default-dest))
  78.  
  79.    (copyfiles (source "RAGE!#01:RAGE!installHD")
  80.               (dest @default-dest))
  81.  
  82.    (copyfiles (source "RAGE!#01:RAGE!installHD.info")
  83.               (dest @default-dest))
  84.  
  85.    (complete 40)
  86.    (set cdest (tackon @default-dest "c/"))
  87.    (copyfiles (source "RAGE!#01:c")
  88.               (dest cdest)
  89.               (all))
  90.  
  91.    (complete 50)
  92.    (set cdest (tackon @default-dest "s/"))
  93.    (copyfiles (source "RAGE!#01:s")
  94.               (dest cdest)
  95.               (all))
  96.  
  97.    (complete 60)
  98. ; ask to modify the user-startup
  99.    (startup "RAGE!#01"
  100.             (prompt "\n\nDo you want to put the following lines\n"
  101.                     "in your startup-sequence ?\n\n\n"
  102.                     ("assign RAGE!#01: %s\n" @default-dest))
  103.             (help "\n\n\nRAGE!#01 need these listed logical ASSIGNs to"
  104.                   " find its files."
  105.                   " If you want, these ASSIGNs"
  106.                   " will be written in youR startup-sequence"
  107.                   " if not, you will have to write them yourself"
  108.                   " in your startup-sequence otherwise RAGE!#01"
  109.                   " won't work.")
  110.             (command ("assign RAGE!#01: %s\n" @default-dest)))
  111.  
  112. ; Some assigns to use RAGE!#01 right now !
  113.    (makeassign "RAGE!#01:" @default-dest)
  114.  
  115.    (complete 70)
  116.  
  117. ; End of Installation Script.
  118. )
  119.